(timer-event-handler): Save copies of events too.

diff --git a/lisp/timer.el b/lisp/timer.el
index 64f8764a3e4e291945c67a166307e61a103a05b2..ebf52a857904c7a146bbc8df4f39810fdfbb5022 100644 (file)
--- a/lisp/timer.el
+++ b/lisp/timer.el
@@ -219,7 +219,7 @@ fire repeatedly that many seconds apart."
   (interactive "e")
   (setq timer-event-last-2 timer-event-last-1)
   (setq timer-event-last-1 timer-event-last)
-  (setq timer-event-last event)
+  (setq timer-event-last (cons event (copy-sequence event)))
   (let ((inhibit-quit t)
        (timer (car-safe (cdr-safe event))))
     (if (timerp timer)